home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / www / IBrowseScripts.lha / ibrowsescripts / install.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-02-19  |  2.9 KB  |  106 lines
  1. /* Install.rexx
  2.  
  3. */
  4. OPTIONS RESULTS
  5. OPTIONS FAILAT 10
  6.  
  7. say show('Libs')
  8. addlib("rexxreqtools.library", 0, -30, 0)
  9. lib= show('Libs',"rexxreqtools.library")
  10.  
  11. open('ibstart','CON:60/100/350/80/IBStart/cds')
  12.  
  13. IF ~EXISTS('RAM:ENV/MIS') THEN call writeln 'ibstart','Miami   assign found. Skipped that part'
  14. IF ~EXISTS('RAM:ENV/AMS') THEN call writeln 'ibstart','AmIRC   assign found. Skipped that part'
  15. IF ~EXISTS('RAM:ENV/IBS') THEN call writeln 'ibstart','IBrowse assign found. Skipped that part'
  16.  
  17. IF EXISTS('RAM:ENV/IBS') THEN DO
  18. name='IBrowse'
  19. check='IBrowse.prefs'
  20. CALL MAKEASSIGN
  21. END
  22.  
  23. cls
  24. ADDRESS 'COMMAND'
  25.  
  26. IF ~EXISTS('IBrowse:REXX') THEN DO
  27.     call writeln 'ibstart','Ibrowse/REXX  not found. Making REXX Directory'
  28.     'Makedir IBrowse:REXX'
  29. END
  30. call writeln 'ibstart','Now copying files to IBrowse:Rexx'
  31. 'Copy >CON: rexx/#? Ibrowse:rexx/'
  32.  
  33. IF ~lib THEN DO
  34. call writeln 'ibstart','Could not find rexxreqtools.library!!!'
  35.     call writeln 'ibstart','See guide.html for a Url'
  36.     call writeln 'ibstart','(Press "Enter" to continue )'
  37.     open('input','ibstart','R')
  38.     ok=readln('ibstart')
  39. END
  40.  
  41. IF ~EXISTS("sys:rexxc/RX") THEN DO
  42.     call writeln 'ibstart','Could not find Sys:rexxc/RX'
  43.     call writeln 'ibstart','Reinstall from your workbench-diskettes'
  44.     call writeln 'ibstart','(Press "Enter" to continue )'
  45.     open('input','ibstart','R')
  46.     ok=readln('ibstart')
  47. END
  48.  
  49.  
  50.  
  51. IF EXISTS('RAM:ENV/MIS') THEN DO
  52. name='Miami'
  53. check='miami.default'
  54. ADDRESS "COMMAND" 'delete ram:env/MIS'
  55. CALL MAKEASSIGN
  56. END
  57.  
  58. IF EXISTS('RAM:ENV/AMS') THEN DO
  59. name='AmIrc'
  60. check='default.amircfg'
  61. CALL MAKEASSIGN
  62. END
  63.  
  64.  
  65. IF ~EXISTS('RAM:ENV/MIS') THEN DO
  66.     call writeln 'ibstart','Now copying file to Miami:'
  67.     'Copy >CON: IBrowse:rexx/miamistartyam.rexx Miami:'
  68. END
  69. call writeln 'ibstart','All done! Now edit your IBrowse/Yam/Miami Settings'
  70. call writeln 'ibstart','as shown by guide.html. '
  71. call writeln 'ibstart','( Just drag`n-drop it on IBrowse )'
  72. 'wait 20'
  73. EXIT
  74.  
  75. MAKEASSIGN:
  76.     call writeln 'ibstart','Could not find a '|| name ||'  assign!!!'
  77.     call writeln 'ibstart','Please enter the path to the '|| name ||'  directory'
  78.     call writeln 'ibstart','(Ex: "SYS:Surf/'|| name ||'" )'
  79.     call writeln 'ibstart','("Enter" / "Cancel" to skip this part. )'
  80.     call writeln 'ibstart',''
  81.  
  82.     DO FOREVER
  83.  
  84.         IF lib=0 THEN path=readln('ibstart')
  85.         IF lib=1 THEN path = rtfilerequest('SYS:', , "Pick "|| name ||"  directory",,"rtfi_flags = freqf_nofiles")
  86.  
  87.         IF path='' THEN BREAK
  88.         IF RIGHT(path,1)='/' THEN path=LEFT(path,(LENGTH(path)-1))
  89.         say path
  90.         all=path||'/'|| check
  91.         If exists(all) then break
  92.         call writeln 'ibstart','Could not find '|| check ||'  in'
  93.         call writeln 'ibstart',path
  94.         call writeln 'ibstart','Please enter the path to the Miami directory'
  95.     END
  96.  
  97.     IF path~='' THEN DO
  98.  
  99.         ADDRESS 'COMMAND'
  100.         IF ~EXISTS('s:userstartup.preIBs') THEN 'copy S:user-startup S:user-startup.preIBs'
  101.         ok=OPEN('user','S:user-startup','A')
  102.         ok=WRITELN('user','assign 'name': '||path||'   ;Added by IBrowseScripts')
  103.         'assign 'name':' path 
  104.     END
  105.  
  106. RETURN